vizsgn vagy rlapok vagy jelentsek szoktak lenni!!!!
activex elmletben szokott eljnni



accesbe SQL adatzbzis behozsa

j project file
jobb oldalon project j (meglv adatok)
csatlakozunk a sajt sql szerverhez

jogosultsgok:
NT adtvdelmnek hasznlata

ha a 3 as pontban lv listban vannak az adatb nevek akkor faszasgvan
North wind et kivlasztjuk
kapcsolat tesztelse
Eloyees t megnyitjuk
u.a. rhet el mint az sql enterprise menegernl
lekrdezsi is hasonlan mulatsgos 
jobb gomb tervez nzet

rlap:
jelents
u.a. mint a mlt rn csak most itt az sql adatbzis  faszomsgokat hasznlva

tblkon jobb gomb triggerek

MMostantl VB

VB alatt egy lis text formtum szveg szerk programot fogunk csinlni
gy kell hogy tbbet is lehessen tbb dokumentumot kezelni
bettipust tudjunk mdostani stb stb

ACTIVE X ez kell ltre hozni
1.
jobb gomb add MDI form
httere sttebb, gy tbb ablakot tud majd kezelni a form neve frm szovegszerk

frmdok nak van egy tulajdonsga, hogy mdichild t yes re

a kis ablaknak a nagfyon bell kell lennie

2. a kis ablakba most egy list text box vezrlt tesznk
project, component,itt kell kikereseni, a microfos, rich text box control.
(kifagyott:) ) mindenfle jogosultsgi faszom miatt fagy ki...

neve: rtf text

mindenfle ment kell a tetejre bigyeszetni
megint a components men a project menn bell
Microsoft common controls 6.0 ezt kell hozzadni

lett egy csom kis gomb baloldalin
image list( itt lehet kpeket hozzadni ezekt tudjuk indexelni a toolbron meg ezekre hivatkozunk
tool bar 

image listbe mindenfle szp kpeket tehetnk

jobb gomb properties images fln insert picture s sszeset hozzadni
kell egy j dok ikon

new
open
save
close
print

cut
copy
paste



bold 
italic
underline

left
right
center
color


jobb gomb a toolbaron properties, image listen kivlasztjuk az imagelist 1 et
fnt a kis msodik fln buttonoknl, 
hozzadjuka  gombokat
a jobb als imagenl kell berni a key t 


tudunk betenni  separtort a stulusnl a 3 ast lehet kivlasztani
4 es a place holder 2800 ra lltsuk



frmszvegszerk nl form tipus tmbt kell deklarlni
jobb gomb a szvegszerk akrmin s code
ezt rjuk:

fell kivlasztjuk az mdi form ot aztn a load ot jobbra

ez kell legyen a kdban az frm szovegszerknl
Option Explicit
Option Base 1
Dim frmForm() As Form

Public nFormSorsz As Integer
Private Sub LoadNewDoc()
nFormSorsz = nFormSorsz + 1
ReDim Preserve frmForm(nFormSorsz)
Set frmForm(nFormSorsz) = New frmDok
frmForm(nFormSorsz).Visible = True
frmForm(nFormSorsz).Caption = Str(nFormSorsz) & ".dokumentum"

End Sub

Private Sub MDIForm_Load()
nFormSorsz = 0
LoadNewDoc

End Sub


most kivlasztjuk a toolbar 1 et
jobb rl a button clicket
ezt rjuk bele:

Option Explicit
Option Base 1
Dim frmForm() As Form

Public nFormSorsz As Integer
Private Sub LoadNewDoc()
nFormSorsz = nFormSorsz + 1
ReDim Preserve frmForm(nFormSorsz)
Set frmForm(nFormSorsz) = New frmDok
frmForm(nFormSorsz).Visible = True
frmForm(nFormSorsz).Caption = Str(nFormSorsz) & ".dokumentum"

End Sub

Private Sub MDIForm_Load()
nFormSorsz = 0
LoadNewDoc

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key
Case "new"
 LoadNewDoc

End Select
 



End Sub

